#!/usr/bin/env perl

#输入一个字符串
print "input string.\n";
chomp($str = <STDIN>);

#输入一个数字
print "input number.\n";
chomp($n = <STDIN>);

#以数字为重复次数，连续输出字符串
$result = $str x $n;

#打印结果
print "$result\n";
